home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / dsystem / encount.bas < prev    next >
BASIC Source File  |  1993-11-30  |  3KB  |  115 lines
  1. 10000 '
  2. 10010 ' 敵出現判定モジュール
  3. 10020 '
  4. 10030 ' ENCOUNT.BAS
  5. 10040 '
  6. 10050 RANDOMIZE TIME
  7. 10060 ENCOUNT=INT(RND(1)*ENCPER)+1
  8. 10070 IF ENCOUNT<>1 THEN *チェインイベンタ
  9. 10080 '
  10. 10090 ' エンカウントした
  11. 10100 '
  12. 10110 IF ENCMAX=0 THEN *チェインイベンタ
  13. 10120 ENCMAX=ENCMAX-1
  14. 10130 '
  15. 10140 ' レイヤシフト
  16. 10150 '
  17. 10160 IF SCR(1)=1 THEN SCR(1)=0 ELSE IF SCR(1)=0 THEN SCR(1)=1
  18. 10170 IF SCR(1)=0 THEN SCR(3)=1 ELSE IF SCR(1)=1 THEN SCR(3)=0
  19. 10180 SCREEN 1,SCR(1),SCR(2),SCR(3)
  20. 10190 CLS
  21. 10200 SCREEN 1,SCR(1),3,SCR(3)
  22. 10210 PALETTE 1,[255,0,0],1
  23. 10220 PALETTE 2,[80,0,0],1
  24. 10230 LINE (TWINX,TWINY)-(TWINX+590,TWINY+92),PSET,%WINC,BF,%WAKUNAI_C
  25. 10240 SYMBOL (TWINX+6,TWINY+10),"何者かに出会った！",FBAI,FBAI
  26. 10250 '
  27. 10260 ' 敵データリセット
  28. 10270 '
  29. 10280 FOR L=7 TO 12
  30. 10290   DEAD(L)=0
  31. 10300 NEXT L
  32. 10310 '
  33. 10320 ' 敵出現数セット
  34. 10330 '
  35. 10340 M=INT(RND(1)*6)+1
  36. 10350 IF M=6 THEN *敵データセット
  37. 10360 '
  38. 10370 ' いない分は死んだとする
  39. 10380 '
  40. 10390 FOR L=(6+M)+1 TO 12
  41. 10400   DEAD(L)=1:HP(L)=0:NA$(L)=""
  42. 10410 NEXT L
  43. 10420 '
  44. 10430 *敵データセット
  45. 10440 '
  46. 10450 FOR L=7 TO (6+M)
  47. 10460   IF FL=1 THEN
  48. 10470     N=INT(RND(1)*24)+1
  49. 10480   ENDIF
  50. 10490   IF FL=2 THEN
  51. 10500     N=INT(RND(1)*24)+1
  52. 10510   ENDIF
  53. 10520     NA$(L)=ENA$(N)
  54. 10530     SEIBETU(L)=ESEIBETU(N)
  55. 10540     MHP(L)=EHP(N)
  56. 10550     HP(L)=EHP(N)
  57. 10560     MMP(L)=EMP(N)
  58. 10570     MP(L)=EMP(N)
  59. 10580     KIY(L)=EKIY(N)
  60. 10590     BIN(L)=EBIN(N)
  61. 10600     KIN(L)=EKIN(N)
  62. 10610     SEIM(L)=ESEIM(N)
  63. 10620     TIR(L)=ETIR(N)
  64. 10630     SEIS(L)=ESEIS(N)
  65. 10640 '
  66. 10650 ' 右手アイテムセレクト
  67. 10660 '
  68. 10670     RANDOMIZE TIME
  69. 10680     DUMMY=INT(RND(1)*6)+1
  70. 10690     IF DUMMY=1 THEN IID(L,1)=EIID11(N)
  71. 10700     IF DUMMY=2 THEN IID(L,1)=EIID12(N)
  72. 10710     IF DUMMY=3 THEN IID(L,1)=EIID13(N)
  73. 10720     IF DUMMY=4 THEN IID(L,1)=EIID14(N)
  74. 10730     IF DUMMY=5 THEN IID(L,1)=EIID15(N)
  75. 10740     IF DUMMY=6 THEN IID(L,1)=EIID16(N)
  76. 10750 '
  77. 10760 ' 左手アイテムセレクト
  78. 10770 '
  79. 10780     RANDOMIZE TIME/3
  80. 10790     DUMMY=INT(RND(1)*6)+1
  81. 10800     IF DUMMY=1 THEN IID(L,2)=EIID21(N)
  82. 10810     IF DUMMY=2 THEN IID(L,2)=EIID22(N)
  83. 10820     IF DUMMY=3 THEN IID(L,2)=EIID23(N)
  84. 10830     IF DUMMY=4 THEN IID(L,2)=EIID24(N)
  85. 10840     IF DUMMY=5 THEN IID(L,2)=EIID25(N)
  86. 10850     IF DUMMY=6 THEN IID(L,2)=EIID26(N)
  87. 10860 '
  88. 10870 ' その他のアイテム設定
  89. 10880 '
  90. 10890     IID(L,3)=EIID3(N)
  91. 10900     IID(L,4)=EIID4(N)
  92. 10910     IID(L,5)=EIID5(N)
  93. 10920     IID(L,6)=EIID6(N)
  94. 10930     IID(L,7)=EIID7(N)
  95. 10940     IID(L,8)=EIID8(N)
  96. 10950     IID(L,9)=EIID9(N)
  97. 10960     IID(L,10)=EIID_10(N)
  98. 10970     IID(L,11)=EIID_11(N)
  99. 10980     IID(L,12)=EIID_12(N)
  100. 10990     AID(L)=EAID(N)
  101. 11000 NEXT L
  102. 11010 WAIT MESSEGE_WA
  103. 11020 '
  104. 11030 ' 関係変数初期化
  105. 11040 '
  106. 11050 KETURETU=0
  107. 11060 MOGISENTOU=0
  108. 11070 ENEMY_NO=0
  109. 11080 '
  110. 11090 CHAIN "BATTLE.BAS",,ALL
  111. 11100 '
  112. 11110 *チェインイベンタ
  113. 11120 '
  114. 11130 CHAIN "IVENT.BAS",,ALL
  115.